﻿' Copyright (C) 2011  Jan-Willem de Bruyn
'
'    This program is free software: you can redistribute it and/or modify
'    it under the terms of the GNU General Public License as published by
'    the Free Software Foundation, either version 3 of the License, or
'    (at your option) any later version.
'
'    This program is distributed in the hope that it will be useful,
'    but WITHOUT ANY WARRANTY; without even the implied warranty of
'    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'    GNU General Public License for more details.
'
'    You should have received a copy of the GNU General Public License
'    along with this program.  If not, see <http://www.gnu.org/licenses/>.

Public Class os
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim temp() As String = Nothing
        Dim temp2 As String = Nothing
        Dim temp3() As String = Nothing
        Dim os As String
        Dim one As Char = "("
        Dim two As Char = ")"
        temp = Request.ServerVariables("http_user_agent").Split(one)
        temp2 = temp.GetValue(temp.Length - 1)

        temp3 = temp2.Split(two)
        os = temp3.GetValue(0)
        Label1.Text = os
        Label2.Text = Request.ServerVariables("LOGON_USER")
        Label3.Text = Request.ServerVariables("REMOTE_ADDR")
        HiddenField1.Value = "hello"

    End Sub

End Class